home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / banner maker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  2.5 KB  |  65 lines
  1. 10 rem: c-64 big letter messager
  2. 20 rem: written by jim bernard
  3. 30 forx=28656to28883:reada:pokex,a:ck=ck+a:next
  4. 35 forx=49152to49231:reada:pokex,a:ck=ck+a:next
  5. 40 ifck<>35750thenprint"data error":end
  6. 45 printchr$(147)
  7. 60 poke52,48:poke56,48:poke56334,peek(56334)and254:poke1,peek(1)and251
  8. 70 fori=0to511:pokei+10000,peek(i+53248):next
  9. 80 poke1,peek(1)or4:poke56334,peek(56334)or1
  10. 90 sys28672
  11. 100 gosub1000:poke53272,28:poke53270,207
  12. 105 sys49152
  13. 110 lw=1502:ly=1503:lx=1542:lz=1543
  14. 120 cl=55774:cy=55775:cx=55814:cz=55815
  15. 140 r=8:q=peek(m):m=m+1:ifq>95thenm=50001:goto140
  16. 150 ifq>63thenq=q-64
  17. 160 w=q*2:x=q*2+1:y=q*2+128:z=q*2+129
  18. 165 ift>1then180
  19. 170 ifpeek(253)=>nn+2then180
  20. 172 ifpeek(253)<nnthennn=-2
  21. 175 goto170
  22. 180 pokelw,w:pokely,y:pokelx,x:pokelz,z
  23. 190 pokecl,r:pokecy,r:pokecx,r:pokecz,r
  24. 195 poke781,0:poke780,0:poke782,0:sys65499
  25. 196 nn=peek(253):goto140
  26. 200 rem - machine language data
  27. 205 data 24,173,3,112,105,8,141,3,112,201,0,208,3,238,4,112
  28. 210 data 162,0,189,16,39,72,74,74,74,74,168,185,155,112,157,0,48,157,1,48,104
  29. 215 data 41,15,168,185,155,112,157,0,52,157,1,52,232,238,15,112,238,18,112,238
  30. 220 data 28,112,238,31,112,224,8,208,208,24,173,15,112,105,8,141,15,112,24,173
  31. 230 data 18,112,105,8,141,18,112,24,173,28,112,105,8,141,28,112,24,173,31,112
  32. 240 data 105,8,141,31,112,201,1,208,12,238,16,112,238,19,112,238,29,112,238,32
  33. 250 data 112,173,32,112,201,56,240,3,76,240,111,169,0,141,15,112,141,28,112,169
  34. 260 data 1,141,18,112,141,31,112,169,48,141,16,112,141,19,112,169,52,141
  35. 270 data 29,112,141,32,112,169,16,141,3,112,169,39,141,4,112,96,0,3,12,15,48
  36. 280 data 51,60,63,192,195,204,207,240,243,252,255,0,162,0,160,1,185,112,7,157
  37. 290 data 112,7,185,152,7,157,152,7,185,112,219,157,112,219,185,152,219,157,152
  38. 300 data 219,232,200,192,40,208,226,169,7,141,22,208,96
  39. 310 data 120,169,17,141,20,3,169,192,141,21,3,88,169,8,133,251,96,166,251,202
  40. 320 data 142,22,208,224,255,240,5,134,251,76,49,234,169,7,133,251,162,0,160,1
  41. 330 data 185,184,5,157,184,5,185,224,5,157,224,5,185,184,217,157,184,217,185
  42. 340 data 224,217,157,224,217,232,200,192,40,208,226,169,7,141,22,208,230,253
  43. 350 data 76,49,234
  44. 1000 rem: collect up to 3200 characters for display
  45. 1005 print:print"instructions - enter up to 2 full lines at each '?' prompt, ";
  46. 1010 print"then press 'return'.":print"enter '*' at a prompt when finished."
  47. 1020 print:print"there will be up to 40 prompts by which to enter text.":print
  48. 1025 dimm$(40):m=50001:forx=1to40
  49. 1030 inputm$(x):ifm$(x)="*"thengoto1055
  50. 1040 ifm$(x)=""then1030
  51. 1045 fory=1tolen(m$(x)):as=asc(mid$(m$(x),y,1))
  52. 1046 ifas<32oras>95thennext
  53. 1047 ifas=64thenas=0
  54. 1048 ifas>90andas<96thenas=as-64
  55. 1049 pokem,as:m=m+1:next
  56. 1050 pokem,32:m=m+1:next
  57. 1055 print:print"message in memory with";:zn=m-50000
  58. 1060 printzn;"characters."
  59. 1065 forx=1to3:pokem,46:m=m+1:next:pokem,32:m=m+1:pokem,96
  60. 1070 print:print"press 'shift' to begin"
  61. 1080 wait 653,1,0
  62. 1090 poke53280,0:poke53281,0
  63. 1095 printchr$(147)
  64. 1099 m=50001:return
  65.